(run "describe/sync SCRIPT=INSTALL.BATe") ; describe is (C) Dietmar Eilert
(set #alreadyinstalled "You have already installed a version greater or equal 2.9!\n")
(set #oldversion "You have already installed an older version of Diamond Caves.\nDo you want to update or install completely new?")
(set #installnew "Install new")
(set #update "Update")
(set #copy "Copying..." )
(set #deloldgfx "Deleteing old gfx-file")
(set #regsource "english/Registration.txt")
(set #guidesource "english/DiamondCaves.guide")
(set #whichdrawer "In which drawer should Diamond Caves V2.9 be installed?\n(A directory called Diamond Caves will be created)")
(set #createdrawer "Creating directory...")
(set #whaticons "What kind of Icons do you want?")
(set #noicons "none")
(set #startupassign "An assign to \"DC:\" will be added to \"S:user-startup\" so that your system will be properly configured to use Diamond Caves.")
(set #titlescreen "Which screenmode do you want the title screen of Diamond Caves to use?\n(Note that can select more screenmodes like DBL-PAL or CyberVision using the program Diamond Prefs)")
(set #screenhelp "To play Diamond Caves with other Screenmodes (even gfx-board), use the program DiamondPrefs.")
(set #settooltype "Setting ToolType...")
(set #gamescreen "Which screenmode do you want the game to use?\n(Note that can select more screenmodes like DBL-PAL or CyberVision using the program Diamond Prefs)")
(set #player1 "Which controlling device do you want Player 1 to use?")
(set #player2 "Which controlling device do you want Player 2 to use?")
(set #keyboard "Keyboard")
(set #controlhelp "To redifine the controlling devices, use the program DiamondPrefs.")
(set #end "\nDiamond Caves installation/update complete, please make sure to read at least the first chapter of the doc-file.\n\nIf you want to reconfigure Diamond Caves, please use the included program DiamondPrefs V1.4.\n\nAnd now enjoy Diamond Caves V2.9!")
)
(
(run "describe/sync SCRIPT=INSTALL.BATd") ; describe ist (C) Dietmar Eilert
(set #alreadyinstalled "Es ist schon eine Version größer oder gleich V2.9 installiert!")
(set #oldversion "Es ist schon eine ältere Version von Diamond Caves installiert.\nWollen Sie dieVersion erneuern oder alles komplett neu installieren?")
(set #installnew "neu installieren")
(set #update "erneuern")
(set #copy "Kopiere..." )
(set #deloldgfx "Lösche alte gfx-datei")
(set #regsource "deutsch/Registration.txt")
(set #guidesource "deutsch/DiamondCaves.guide")
(set #whichdrawer "Wo möchten Sie Diamond Caves V2.9 installieren?\n(Es wird eine Schublade mit dem Namen Diamond Caves erstellt)")
(set #createdrawer "Erstelle Schublade...")
(set #whaticons "Was für Icons möchten Sie?")
(set #noicons "keine")
(set #startupassign "Ein Assign auf \"DC:\" wird in die Datei \"S:user-startup\" eingefügt, damit Diamond Caves alle benötigten Dateien findet.")
(set #titlescreen "In was für einem Screenmode soll das Hauptmenu von Diamond Caves laufen?\n(Andere Screenmodes wie DBL-PAL oder CyberVision können mit dem Programm Diamond Prefs eingestellt werden)")
(set #screenhelp "Um Diamond Caves in einem anderen Screenmode zu betreiben (z.B. auf einer Grafikkarte), bitte das Programm Diamond Prefs benutzen)")
(set #settooltype "Setze ToolType...")
(set #gamescreen "In welchem Screenmode soll das Spiel laufen?\n(Andere Screenmodes wie DBL-PAL oder CyberVision können mit dem Programm Diamond Prefs eingestellt werden)")
(set #player1 "Womit wollen Sie Spieler 1 steuern?")
(set #player2 "Womit wollen Sie Spieler 2 steuern?")
(set #keyboard "Tastatur")
(set #controlhelp "Um die Steuerung nachträglich zu verändern, bitte das Programm Diamond Prefs benutzen")
(set #end "\nDiamond Caves fertig installiert/erneuert, bitte lesen Sie als neuer Benutzer mindestens das einleitende Kapitel der Anleitung.\n\nUm die Vorgenommenen Einstellungen zu verändern, bitte das enthaltene Programm Diamond Prefs V1.4 benutzen.\n\nUnd nun viel Spaß mit Diamond Caves V2.9!")
)
)
(if (exists "DC:" (NOREQ))
(
(set vernum (getversion "DC:DiamondCaves"))
(set ver (/ vernum 65536))
(set rev (- vernum (* ver 65536)))
(set version (+ (* 100 ver) rev))
(if (> version 208)
(
(message #alreadyinstalled)
(exit (quiet))
)
(
(set DrawerNameParent "DC:")
(set DrawerName "DC:")
)
)
(set Update
(askchoice
(prompt #oldversion)
(choices #installnew #update)
(help #nohelp)
(default 1)
)
)
)
)
(if (= Update 1) ; only Update according to present Version
(
(if (< version 103) ; this is only for V1.0/1.1/1.2 (two fixed game levels)
(
(complete 30)
(copyfiles
(prompt #copy)
(help #nohelp)
(source "UpdateFromV1.0-1.2")
(dest DrawerName)
(all)
)
)
)
(if (< version 104) ; this is the update for V1.0-1.3 (ten new easy levels, one game level)
(
(complete 40)
(copyfiles
(prompt #copy)
(help #nohelp)
(source "UpdateFromV1.0-1.3")
(dest DrawerName)
(all)
)
)
)
(if (exists "DC:gfx/x999" (NOREQ))
(
(complete 50)
(delete
("DC:gfx/x999")
(prompt #deloldgfx)
(help #nohelp)
)
)
)
(if (< version 106) ; this is the update for V1.0-1.5 (new gfx-format)
(
(complete 60)
(copyfiles
(prompt #copy)
(help #nohelp)
(source "UpdateFromV1.0-1.5")
(dest DrawerName)
(all)
)
)
)
(if (< version 107) ; this is the update for V1.0-1.6 (all replay-files and new sfx-format)
(
(complete 70)
(copyfiles
(prompt #copy)
(help #nohelp)
(source "UpdateFromV1.0-1.6")
(dest DrawerName)
(all)
)
)
)
(if (< version 108) ; this is the update for V1.0-1.7 (2 replay-files)
(
(complete 75)
(copyfiles
(prompt #copy)
(help #nohelp)
(source "UpdateFromV1.0-1.7")
(dest DrawerName)
(all)
)
)
)
(if (< version 200) ; this is the update for V1.0-1.8 (sample y27)
(
(complete 80)
(copyfiles
(prompt #copy)
(help #nohelp)
(source "UpdateFromV1.0-1.8")
(dest DrawerName)
(all)
)
)
)
(if (< version 203) ; this is the update for V1.0-2.2 (gfx)
(
(complete 90)
(copyfiles
(prompt #copy)
(help #nohelp)
(source "UpdateFromV1.0-2.2")
(dest DrawerName)
(all)
)
)
)
(if (< version 209) ; this is the update for V1.0-2.7 (prg)
